home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / comm1 / zmime1_0.lha / zmime1_0 / Rexx / SendMail.zprx
Text File  |  1996-01-24  |  480b  |  27 lines
  1. /*
  2.     $VER: SendMail.zprx 1.0 (24.1.96) Copyright (c) Ralph Seicher
  3.  
  4.     This is a very simple ARexx script for "Zodiac's Point" (V37.206
  5.     or better required) and "zmime".
  6. */
  7.  
  8. options results
  9. parse arg argstr
  10.  
  11. address 'ZPoint'
  12. whichlevel
  13. if result ~= "BOARD" then do
  14.     requestnotify 'Not inside a board!'
  15.     exit 5
  16. end
  17.  
  18. writemessage argstr' ctype message/rfc822'
  19. mid = result
  20. if mid = '' then do
  21.     requestnotify 'WRITEMESSAGE failed!'
  22.     exit 5
  23. end
  24.  
  25. address command 'delete 'mimefile
  26. exit 0
  27.